www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminTemplates\D_moban_admin.asp
<%
'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************
%>
<htmL>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" /><LINK href="../css.css" type=text/css rel=stylesheet>
<%
dir_set="../../"
%>
<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->
<!--#include file=../../inc/ajaxLIB.asp-->
<!--#include file=../inc/checkadmin2.asp-->
<!--#include file=../../inc/functionFiless.asp-->
<!--#include file=../../inc/ND_class_function.asp-->
<script src="../../inc/admin.js" type="text/javascript"></script>
<%
if find_dataw("qitashezhi123","0",6)<>"1" and qx_if_max=0 then
response.redirect "../D_suodinguser.asp"
end if
%>
<%
AJAXshowLoader()
%>
<style type="text/css">
<!--
.STYLE1 {
color: #3300FF;
font-weight: bold;
}
-->
</style>
<br>
<div id="l_do" style="filter:blendTrans(duration=1); width:734px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px;">
<script language="javascript">
function delmb(id){
if (confirm("确认注销它?")==1){
self.location="D_del_moban.asp?id="+id;
}
}
function cmb(id){
if (confirm("切换当前模板时需要先执行 刷新与生成所有前台页面 这个操作，而 刷新与生成所有前台页面 需要花费很长时间,请耐心等待,\n且绝对不可以在切换过程中 强行中断，\n\n（如果执行本操作时出现 很耗服务器资源甚至服务器暂时无反应了或提示Service Unavailable(特别是用虚拟主机而不是用服务器的情况),此时，推荐您在本地自己的电脑上用本地的IIS来运行本系统，在本地电脑上进行 切换当前模板 的操作，编译与生成好一个 整站系统后再上传到服务器上 浏览）\n\n\n，确定进行 切换模板 操作吗？")==1){
self.location="../adminKernel/D_chage_skin.asp?id="+id;
}
}
</script>
<table width=732 border="1" cellpadding="0" cellspacing="0" bordercolor="#D9D9D9" bgcolor="#EBEBEB" style="border: 1px dashed #999999;">
<tr>
<td width="28" height="30" align="center">
<strong>id</strong></td>
<td width="59" height="30" align="center">
<strong>模板名称</strong></td>
<td width="168" height="30" align="center">
<strong>模板文件夹路径</strong></td>
<td width="33" height="30" align="center">
<strong>模板状态</strong></td>
<td width="66" height="30" align="center" style="word-break:break-all">
<strong>模板备注</strong></td>
<td width="97" height="30" align="center">
<strong>是否是当前模板</strong></td>
<td width="97" height="30" align="center">
<strong>是否是系统模板</strong></td>
<td width="166" height="30" align="center">
<strong>操作</strong></td>
<tr>
<%
CurrentPage=replacebadchar(request("page"))
if CurrentPage="" then
CurrentPage=1
else if not IsNumeric(CurrentPage) then
CurrentPage=1
else if int(CurrentPage)<=0 then
CurrentPage=1
else
CurrentPage=replaceBadchar(request("page"))
end if
end if
end if
sql="select * from [ND_templates_folder_reg] order by id desc"
maxperpage=10
'获取自身文件名
aryxx =split(Request.ServerVariables("SCRIPT_NAME"),"/")
fileNamexx = aryxx(ubound(aryxx))
strFileName=fileNamexx&"?id="&request("id")
set Rs=server.CreateObject("adodb.recordset")
Rs.open sql,conn,1,1
if not Rs.eof then
Rs.pagesize=MaxPerpage
totalnumber=Rs.recordcount
if totalnumber mod maxperpage=0 then
MaxPage= totalnumber \ MaxPerpage
else
MaxPage= totalnumber \ MaxPerpage+1
end if
if int(CurrentPage)>int(MaxPage) then
CurrentPage=MaxPage
else
CurrentPage=CurrentPage
end if
Rs.absolutepage=CurrentPage
for ni=1 to maxperpage
if rs.eof then exit for
%>
<tr>
<td height="61" align="center">
<%=rs("id")%>
</td>
<td height="61" align="center" style="word-break:break-all">
<%=rs("templates_name")%>
</td>
<td height="61" align="center" style="word-break:break-all">
/templates/<%=rs("templates_folder_path_name")%>
</td>
<td height="61" align="center" style="word-break:break-all">
<%
set filea=new Cls_FSO
set fileb=new DosAsp
if filea.ReportFolderStatus(server.mappath("../../templates/"&rs("templates_folder_path_name")))=1 then
%>
<font color="#0000ff">正常 </font>
<%
else
%>
<font color="#FF0000">文件夹不存在</font>
<%end if%>
</td>
<td height="61" align="center" style="word-break:break-all">
<%=rs("beizhu")%>
</td>
<td height="61" align="center">
<% if rs("is_default_template")=true then response.write "<font color=#ff0000>是</font>"%>
<% if rs("is_default_template")=false then response.write "否"%>
</td>
<td height="61" align="center">
<% if rs("is_sys_template")=true then response.write "是"%>
<% if rs("is_sys_template")=false then response.write "否"%>
</td>
<td height="61" align="center"><a href="D_edit_admin_zi_templates.asp?pid=<%=rs("id")%>">编辑此模板</a> <a href=# onClick="cmb('<%=rs("id")%>');">设为当前模板</a> <br>
<br>
<a href=# onClick="delmb('<%=rs("id")%>');">注销此模板</a> </td>
<tr>
<%
rs.movenext
next
%>
<%
else
%>
<tr><td colspan="7" class=maintext align="center"><font color="#FF0000"><strong>没有内容……</strong></font></td></tr>
<%end if
Rs.close
set Rs=nothing
%>
<tr>
<td colspan="9" align="center" height="27" ><%call showpage(strFileName,totalnumber,MaxPerPage,true,true,"个",CurrentPage)%></td>
</tr>
<tr>
<td colspan="9" align="center"></td>
</tr>
</table>
</div>
<script language=javascript>
AJAXfade(1,'l_do');
</script>
<%
AJAXcloseLoader()
%>
</html>